home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / fortran / peekpo.com / GETM.FOR < prev    next >
Encoding:
Text File  |  1989-10-12  |  333 b   |  14 lines
  1.       INTERFACE TO SUBROUTINE GET_IT(S,I1,I2,I3,C)
  2.       integer*4 s [VALUE]
  3.       character*1 c 
  4.       end
  5.       PROGRAM CRT_READ_MSF
  6.       integer*4 icrt /#B8000000/      ! Color adapter
  7.       character*40 capture
  8. c
  9.       call get_it(icrt,5,10,40,capture)
  10.       print *, 'capture="',capture,'"'
  11. c
  12.       stop
  13.       end
  14.